PROGRAM LIBRARY 


DECUSNO. 

8-176 

TITLE 

PAL CHOP 

AUTHOR 

Edward A. Taft III 

COMPANY 

St. Mark's School 

Southboro, Massachusetts 

DATE 

April 2, 1969 

SOURCE LANGUAGE 

Machine Language 


Although this program has been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 










• X 

■ 

: * • - •• 

> 






$ 

W : 


V 













■ 

• . • ••• ' & 

•' yr 















PAL CHOP 


DECUS Program Library Write-up DECUS No. 8-176 

DESCRIPTION 

PAL CHOP is a program for making minimum length copies of PAL source tapes. It 
does so by removing all comments; tabs, rubouts, blank tape, and multiple spaces 
and carriage return/line feeds. The final result is functionally identical to the in¬ 
put program but with all comments and formatting removed. 

This program is especially useful while writing immensely large programs. Such a 
program is usually written and debugged in sections. Once a section is operating 
properly there is no further need for the comments and formatting ; the only reason 
for retaining the ASCII source is that it is needed for assembly with sections that 
are still being written and debugged. 

A shorter source tape is not only more convenient to handle; it also takes less time 
to assemble. Users with a Disk/DECtape monitor and limited amounts of storage 
can save even more time and effort by saving their source on disk or tape; editing 
and assembly are immensely speeded up. PAL CHOP can be used to make a con¬ 
densed copy of the program under development, which, when saved, will take 
much less space than it would if saved in its entirety. 

Condensed source programs have the advantage over BIN object tapes in that they 
can still be edited easily; if such changes work, they can always be added to the 
original (unCHOPped) source. 

PAL CHOP accepts ASCII source tapes one "page" at a time (EDIT punches CTRL/L 
at the end of each "page") at either low or high speed and punches the condensed 
tape on the low or high speed punch. A pseudo interrupt system is used to ensure 
that I/O proceeds at full speed. 


EQUIPMENT 

PDP-5, PDP-8, PDP-8/1, or PDP-8/L with an ASR-33 and the optional use of a 
high speed reader and punch. 


LOADING 

PAL CHOP is loaded with the binary loader. It will operate properly in any field. 
The start address is 0200. 

PAL CHOP occupies locations 10-366, and uses locations 400-1177 as a buffer. 







OPERATION 






After loading PAL CHOP, set 0200 into the switch register and press LOAD 
ADDRESS. 

Set switches properly for the following options: 

Bit 0: 0= Input from the high speed reader. 

1 = Input from the Teletype. 

Bit 1: 0= Output to the high speed punch. 

1 = Output to the Teletype. 


Bit 2: 0= Process the input tape. 

1 = Punch 6 inches of blank tape and stop. 


Place PAL source tape in selected reader and activate reader and punch. Press 
START. The tape will be processed until a CTRL/L (the end-file character) is 
encountered. Three inches of blank leader will be punched at the beginning and 
end of the copy. 

To process another tape (or another section of the same tape) press CONTINUE. 
An extra 6 inches of blank tape may be punched wherever desired by setting bit 
2 and pressing CONTINUE. 

Restart: If the program (locations 10-366) has not been disturbed it may be re¬ 
started at location 0200. 


EXPLANATION 


Input/Output 


This program uses a pseudo interrupt input/output system. The computer interrupt is 
not used. This system ensures that the output buffer will not overflow, output will 
take place at maximum speed, and input will be smooth (reader either stopped or 
running at full speed; no stall between characters). 


A three-page output buffer is maintained. As the input tape is processed the 
results are placed in the buffer sequentially until it has been filled. At this point 
processing is suspended until the output routine has emptied the first two pages 
of the buffer. The remaining page is then shifted to the beginning of the buffer 
and processing is resumed. The reader runs at full speed during processing. When 
the high speed reader is being used for input, processing proceeds at several times 
the output speed and the buffer is filled quickly. 
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Internal Control 


There are four control subroutines, as follows: 

CHECK. Output status check and buffer control. If punch flag is up, check 
the number of characters in the buffer; if there are any, test the value of pointer 
OUTXR1 to see if the first two pages are empty. If so, shift the last page to the 
first page and reset the pointers. Finally, punch the next character in the buffer. 

PUNCH. Character output routine. Place the contents of CHAR into the output 
buffer. If this character fills the buffer, continue CHECKing until the first 2 
pages of the buffer have been output and the last page has been reset. 

READ. Character input routine. Continue CHECKing until the reader flag is 
raised, then read the character into location CHAR. 

SORT. Sort the contents of CHAR against a list, as follows: 

SORT 

LIST-1 

(return here if no match) 


LIST, character 
pointer 
character 
pointer 

negative number to end list 

SORT compares CHAR successively to each character in the list. If a match is 
found, control is transferred to the location specified by the pointer after the 
character. If no match is found, control is returned to the calling sequence. 

The rest of the program is straightforward. Further information may be gained from 
the listing which is available for a $5.00 handling charge. 


PROBLEMS AND RESTRICTIONS 

Because PAL CHOP eliminates all tabs, users who replace separating spaces with 
tabs in their programs will find that the output from PAL CHOP will not work. 
Whereas an instruction such as TAD(space)ADDRSS will be copied properly, the 
instruction TAD(tab)ADDRSS will be rendered improperly as TADADDRSS. The 
places in which this will cause problems are as follows: 

1 . Between an operator and its operand. 

2. Between combined microinstructions. 
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3. Between the word TEXT and the delimiting character 
marking the start of the text field. 


Spaces must be present in the above three cases. In all other situ ^° nS ' 

and tabs are optional and the multiple spaces and tabs are removed by PAL CHUP. 


There is a minor bug in the routine that identifies and handles the word TEXT. 
As a result, comments immediately following the words T, TE, or TEX will not 
be deleted. This is of no consequence, and, in the unlikely event that such 
a situation should appear, the resulting tape will still assemble properly. 

The input tape must be in correct PAL format, and must also be in the format 
in which EDIT outputs tapes. Nonstandard items, such as spurious CTRL/L 
characters and CR‘s and LF's not in CR-LF combinations, will cause trouble. 
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/ 

/PAL CHOP 4/69 

/ 

/BY EDWARD A. TAFT, III 
/ ST. MARK’S SCHOOL 

/ SOUTH PO ROUGH* MASS. 01772 

/ 

/FOR MAKING MINIMUM LENGTH COPIES OF PAL SOURCE TAPES 
/ 

/fOR ANY PDP-8 FAMILY COMPUTER 
/HIGH-SPEED READER AND PUNCH OPTIONAL 
/ 

/REMOVES ALL BLANK TAPE# COMMENTS# TABS# MULTI PLF 
/SPACES# AND MULTIPLE CR-LF’S 
/ 

/CORE USAGE 

/ PROGRAM 10-377 

/ OUTPUT BUFFER • 400-1177 

/ 

/START ADDRESS: 0200 
/ 

/SWITCH REGISTER OPTIONS: 

/BIT 0s 0=HIGH SPEED READER INPUT 
/ 1 = TEL ETYPE INPUT 

/BIT I: 0=HIGH SPEED PUNCH OUTPUT 
/ 1 = TELETYPE OUTPUT 

/BIT 2: 0s PRO CESS INPUT TAPE 
/ 1*PUNCH 6 INCHES OF LEADER 

/ 

/TO START ANOTHER RUN# RESET SWITCHES IF 
/NECESSARY AND PRESS CONTINUE 
/ 


0010 

0000 

001 1 

0000 

0012 

0000 

0013 

0000 


0020 

6601 

0021 

7001 

0022 

0377 

0023 

7742 

0024 

0000 

0025 

0000 

0026 

0000 

0027 

0000 


/AUTOINDEX REGISTERS 

OUTXR1# 0 /OUTPUT BUFFER POINTERS 

0UTXR2# 0 

SORTXR# 0 /USED BY SORT 

XR1# 0 /MISC 

*20 

/CONSTANTS 
PCHECK# -OUTBUF-577 

BCHECK# -OUTBUF-377 

BUFBEG# OUTBUF- 1 

LEADC# -36 

/VARIABLES 

CHAR# 0 /CURRENT INPUT CHARACTER 

LASTC# 0 /LAST CHARACTER PUNCHFD 

TEMP# 0 /TEMPORARY REGISTER 

COUNT# 0 / - C# OF CHARACTERS IN OUTPUT BUFFER) 
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0075 

0076 

0077 

0100 

0101 

0102 

0103 

0104 

0105 


0106 
0107 
01 10 
01 1 1 
01 12 
01 13 
01 14 
0115 
01 16 
0117 
0120 
0121 
0122 
0123 
0124 
0125 
0126 


0127 

0130 

0131 

0132 

0133 

0134 

0135 

0136 


0171 

0172 

0173 

0174 

0175 

0176 

0177 


0000 

RFAD=JMS ♦ 

XREAD* 0 

4030 

CHFCK 

601 1 

INSKP, RSF 

5076 

JMP . -R 

6016 

INPUT* RRB RFC 

3024 

DCA CHAR 

4106 

SORT 

0342 

RLI ST- 1 

5475 

JMP I XREAD 

0000 

/ 

SORT= JMS . 

XSORT* 0 

1506 

TAD I XSORT 

2106 

ISZ XSORT 

3012 

DCA SORTXR 

1412 

TAD I SORTXR 

7510 

SPA 

5125 

JMP NOTF 

7041 

CIA 

1024 

TAD CHAR 

7650 

SNA CLA 

5123 

JMP .+3 

2012 

ISZ SORTXR 

51 12 

JMP XSORT+4 

1 412 

TAD I SORTXR 

3106 

DCA XSORT 

7300 

NOTF* CLA CLL 

5506 

JMP I XSORT 


LEADER*JMS . 

/ 


/f<FAD A CHARACTFR INTO CHAR - M RF AD” 


/IGNORE PLANK* 200# TAB* RUPOUT 


/SORT CHAR AGAINST A LIST - "SORT” 
/GET LIST ADDRFSS 

/COMPARISON CHARACTER 
/LIST FNDFD PY NEGATIVE # 

/NOT A MATCH* TRY NEXT 
/MATCH* GET POINTER 


0000 

XLFAD# 

0 

/PUNCH 3 INCHES BLANK TAPE 

3024 


DCA CHAR 

1023 


TAD LEADC 

/“30(10) 

3026 


DCA TEMP 


4062 


PUNCH 


2026 


ISZ TEMP 


5133 


JMP .-2 


5527 

* 1 71 

JMP I XLEAD 



/PUNCH 

BLANK TAPE* 

COMPLETE OUTPUT, AND HALT 

4062 

ENDFIL* 

PUNCH 

/END OF INPUT 

4127 


LEADER 


4030 


CHECK 


1027 


TAD COUNT 

/WAIT FOR OUTPUT TO END 

7640 


SZA 6LA 

5173 


JMP .-3 


7402 

/ 

HLT 

Y 


”LFADER 
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/CONTROL SUBROUTINES 
/ 


CHECK* JMS . 


0030 

0000 

XCHECK# 

0 


0031 

6021 

OUTSKP, 

PSF 


0B32 

5430 


JMP 

I .-2 

0033 

101 1 


TAD 

0UTXR2 

0034 

7141 


CLL 

CIA 

0035 

1010 


TAD 

OUTXR1 

0036 

3027 


DCA 

COUNT 

0037 

7430 


SZL 


0040 

5430 


JMP 

I X CHECK 

0041 

1010 


TAD 

OUTXR1 

0042 

1021 


TAD 

P CHECK 

0043 

7710 


SPA 

CL A 

0044 

5056 


JMP 

OUT 

0045 

1022 


TAD 

BUFBEG 

0046 

3011 


DCA 

0UTXR2 

0047 

1410 


TAD 

I OUTXR1 

0050 

341 1 


DCA 

I 0UTXR2 

0051 

2027 


I SZ 

COUNT 

0052 

5047 


JMP 

.-3 

0053 

1022 


TAD 

BUFBEG 

0054 

3010 


DCA 

6 UTXR1 

0055 

5033 


JMP 

OUTSKP+2 

0056 

1410 

OUT# 

TAD 

I OUTXR1 

0057 

6*26 

OUTPUT# 

PLS 


0060 

7300 


CL A 

CLL 

0061 

5430 


JMP 

I XCHECK 



PUNCH*JMS . 


0062 

0000 

X PUNCH# 

0 


0063 

1024 


TAD 

CHAR 

0064 

3025 


DCA 

LASTC 

0065 

1024 


TAD 

CHAR 

0066 

341 1 


DCA 

I 0UTXR2 

0067 

4030 


CHECK 

0070 

1011 


TAD 

0UTXR2 

0071 

1020 


TAD 

PCHECK 

0072 

7710 


SPA 

CL A 

0073 

5462 


JMP 

I XPUNCH 

0074 

5067 


JMP 

.-5 


/ 


/CHECK OUTPUT STATUS - ”CHF CK*' 

/PUNCH NOT RFADY 
/GET n OF CHARACTERS 
/LEFT IN OUTPUT PUFFER 


/BUFFER EMPTY 

/NOT EMPTY: ARE 1ST TWO 

/PAGES EMPTY 

/NO# PUNCH NEXT CHARACTER 

/YES# SHIFT CONTENTS TO BEGINNING 

/OF OUTPUT BUFFER 


/RESET POINTFR 


/PUNCH NEXT BUFFER CHARACTER 


/OUTPUT CHAR - "PUNCH” 
/APPEND IT TO BUFFER 


/END OF SPACF IN BUFFER? 


/NO 

/YES# LET PINCH CATCH UP 
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0200 

6002 

START* IOF 


0201 

6046 

TLS 


0202 

6026 

PLS 


0203 

6032 

KCC 


0204 

6014 

RFC 


0205 

7604 

LAS 


0206 

7104 

CLL 

RAL 

0207 

7710 

SPA 

CL A 

0210 

1334 

TAD 

C20 

021 1 

1332 

TAD 

CPSF 

0212 

3031 

DCA 

OUTSKP 

0213 

1031 

TAD 

OUTSKP 

0214 

1335 

TAD 

C5 

0215 

3057 

DCA 

OUTPUT 

0216 

7430 

SZL 


0217 

1334 

TAD 

C20 

0220 

1333 

TAD 

CRSF 

0221 

3077 

DCA 

INSKP 

0222 

1077 

TAD 

INSKP 

0223 

1335 

TAD 

C5 

0224 

3101 

DCA 

INPUT 

0225 

1022 

TAD 

BUFBEG 

0226 

3010 

DCA 

OUTXR1 

0227 

1022 

TAD 

BUFBEG 

0230 

301 1 

DCA 

0UTXR2 

0231 

2027 

I SZ 

COUNT 

0232 

4127 

LEADER 

0233 

7604 

LAS 


0234 

7106 

CLL 

RTL 

0235 

7710 

SPA 

CL A 

0236 

5171 

JMP 

ENDFIL 


/ 


/INITIALIZE I/O 

/GET OPTION PITS 
/TEST BIT 1 (OUTPUT) 

/6041 (TSF) OP 6021 (PSF) 

/6046 (TLS) OR 6026 (PLS) 
/TEST BIT fl (INPUT) 

/6031 CKSF) OR 6011 (RSF) 

/ 6036 (KRB ) OP 6016 (RRP RFC) 
/INITIALIZE OUTPUT BUFFER 

/TEST OPTION PIT 2 

/=ll PUNCH LEADER AND QUIT 
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0237 

4075 

0240 

4106 

024] 

0353 

0242 

4062 

0243 

5237 

0244 

4075 

0245 

1024 

0246 

1353 

0247 

7640 

0250 

5244 

0251 

5314 

0252 

1025 

0253 

3026 

0254 

4062 

0255 

1026 

0256 

3024 

0257 

4106 

0260 

0321 

0261 

5237 

0262 

1336 

0263 

3013 

0264 

4075 

0265 

4062 

0266 

1413 

0267 

7450 

0270 

5275 

0271 

1024 

0272 

7640 

0273 

5237 

0274 

5264 

0275 

1024 

0276 

7041 

0277 

3026 

0300 

4075 

0301 

4062 

0302 

1026 

0303 

1024 

0304 

7640 

0305 

5300 

0306 

5244 


/NORMAL INPUT AND TEST 
NEXTC# READ /READ TAPE 

S CLI^ST /f ** CTRL/L# SPACE# CR 

PUNCH /NONE OF THOSE# CONTINUE 
JMP NEXTC 

/SLASH FOUND# SKIP ENSUING COMMENT 
COMMNT# READ 

TAD CHAR 
TAD MCR 
SZA CL A 


JMP COMMNT 
JMP CARRTN 
/T FOUND# TEST FOR 
TXLOOK# TAD LASTC 
DCA TEMP 
PUNCH 
TAD TEMP 
DCA CHAR 
SORT 


TXT2# 

TLI ST- l 
JMP NEXTC 
TAD TXPTR 

TNEXT# 

DCA XR1 
READ 

TFOUND# 

PUNCH 

TAD I XR1 
SNA 

JMP TFOUND 
TAD CHAR 
SZA CLA 

JMP NEXTC 
JMP TNEXT 

tad char 

LITRAL# 

CIA 

DCA TEMP 
READ 


PUNCH 
tad TEMP 
TAD CHAR 
SZA CLA 

JMP LITRAL 
JMP COMMNT 


/FOUND CR# 
"TEXT” 


RESUME NORMAL SEARCH 


/MAKE SURE PRECEDING CHARACTER 
/COMMA# SPACE# LF# OR BLANK 


/NONE OF THOSE# NOT LEGAL "TEXT 
/OK# SET UP POINTER TO TEST 
/FOR "EXT " 


/LIST ENDS WITH 0 


/NOT THE WORD "TEXT" 

/OK SO FAR 

/GET DELIMITING CHARACTER 


/NOW COPY INPUT LITERALLY UNTIL 
/2ND DELIMITER 


/IGNORE INPUT AFTER TEXT FIELD 


/ 

















/FOUND SPACE* ELIMINATE ANY MULTIPLE SPACES 


030 7 

1025 

SPACE* 

TAD LASTC /WAS PREVIOUS CHAR 

0310 

1342 


TAD MSPC 

031 1 

7640 


SZA CLA 

0312 

5242 


JMP NEXTC+3 /NO* PRINT SPACF 

0313 

5237 

/FOUND 

JMP NEXTC /YES* SKIP SPACF 

CR* FLIMINATF MULTIPLE CR-LF'S 

0314 

1025 

CARRTN, 

TAD LASTC /WAS PREVIOUS CHAR 

0315 

1 366 


TAD MLF 

0316 

7640 


SZA CLA 

0317 

5242 


JMP NEXTC+3 /NO* PRINT CR-LF 

0320 

4075 


READ 

0321 

5237 

/ 

JMP NEXTC /YES* SKIP CR-LF 



/SORTING LI STS 
/ 

/CHARACTERS LEGALLY OCCURRING BEFORF "TEXT 

0322 

0000 

TLIST* 

000 /PLANK 

0323 

0262 


TXT2 

032 4 

0254 


254 /COMMA 

0325 

0262 


TXT2 

0326 

0240 


240 /SPACF 

032 7 

0262 


TXT2 

0330 

0212 


212 /LINE FEED 

0331 

0262 


TXT2 



/CONSTANTS FOR I/O INITIALIZATION 

0332 

6021 

CPSF * 

PSF 

0333 

601 1 

CRSF* 

RSF 

0334 

0020 

C20* 

20 

033 5 

0005 

C5* 
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/TEST CONSTANTS FOR "TEXT" 

0336 

0336 

TXPTR* 

• 

0337 

7473 

TXL 1ST* 

-305 /E 

0340 

7450 


-330 /X 

034 1 

7454 


-324 /T 

0342 

7540 

MSPC* 

-240 /SPACF 



/INPUT 

CHARACTERS TO BE IGNORED 

0343 

0000 

RLIST, 

000 /PLANK 

0344 

0076 


XREAD+1 

0345 

0200 


200 /LEADER 

0346 

0076 


XREAD+1 

0347 

021 1 


211 /TAP 

0350 

0076 


XREAD+1 

0351 

0377 


377 /RUBOUT 

0352 

0076 


XREAD+1 

0353 

7563 

MCR* 

-215 



/NORMAL 

SEARCH CHARACTERS 

0354 

0257 

CL I ST* 

257 /SLASH 

0355 

0244 


COMMNT 

0356 

0324 


324 /T 

0357 

0252 


TXLOOK 

0360 

0214 


214 /CTRL/L 

036 1 

0171 


ENDFIL 

0362 

0240 


240 /SPACE 

0363 

0307 


SPACE 

0364 

0215 


215 /CARRIAGE RETURN 

0365 

0314 


CARRTN 

0366 

7566 

MLF* 

/ 

-212 



f 

OUTBUF* 

400 /3-PAGE OUTPUT BUFFER 


SPACE? 


LF? 
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PCHECK 0021 
BUFPEG 00?? 
CARRTN 03 14 


CHAR 

0024 

CHECK 

4030 

CLIST 

0354 

COMMN1 

0244 

COUNT 

0027 

CPSF 

033? 

CKSF 

0333 

CP0 

0334 

C5 

0335 

ENDFIL 

0171 

INPUT 

0101 

INSKP 

0077 

LASTC 

0025 

LEADC 

0023 

LFAPER 

4127 

LITRAL 

0300 

MCR 

0353 

MLF 

0366 

MSPC 

0342 

NEXTC 

0237 

NOTF 

0125 

OUT 

0056 

OUTBIJF 

0400 

OUTPUT 

0057 

OUTSKP 

0031 

OUTXR1 

0010 

0UTXK2 

0011 

PCHECK 

0020 

PUNCH 

4062 

READ 

4075 

RLIST 

0343 

SORT 

4106 

SORTXR 

0012 

SPACE 

0307 

START 

0200 

TEMP 

0026 

TFOUND 

0275 

TLI ST 

0322 

TNEXT 

0264 

TXL 1ST 

0337 


TXLOOK 0252 
TXPTR 0336 
TXT2 0262 
XCHECK 0030 
XLEAD 0127 
XPUNCH 0062 
XREAD 0075 
XK1 0013 

XSORT 0106 


VIII. EXAMPLE OF USE 


PAL CHOP was used with the high speed reader and th< 
teleprinter to produce the following CHOPped copy of the 
first two sections of PAL CHOP ASCII: 
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